home *** CD-ROM | disk | FTP | other *** search
/ Macworld Expo - Develope…Central & Net Innovations / Developer Central and Net Innovators (MacWorld Expo) (January 1999).iso / Developer Central / Bowers Development / Demo AppMaker / Examples / Pascal OS8 / AMReminder / DDocData.p < prev    next >
Encoding:
Text File  |  1998-10-30  |  1.7 KB  |  116 lines  |  [TEXT/CWIE]
  1. { DDocData.p -- data container class for AMReminder}
  2.  
  3. Unit DDocData;
  4. Interface
  5.  
  6. Uses
  7.     Types,
  8.     OSUtils,
  9.  
  10.     AMArray,
  11.     DReminder,
  12.  
  13.     AMSignaler;
  14.  
  15. const
  16.     idReminderChoice        = longint ('Reme');
  17.     idReminders        = longint ('Rems');
  18.     idIsSelected        = longint ('IsSd');
  19.  
  20. type
  21.     {----------}
  22.     DDocData    = object (AMSignaler)
  23.  
  24.     {data members}
  25.         mReminderChoice:        SInt16;
  26.         mReminders:        DReminder;
  27.  
  28.     {methods}
  29.         Procedure Initialize; Override;
  30.  
  31.         Function  GetReminderChoice: SInt16;
  32.         Procedure SetReminderChoice    (inValue:        SInt16);
  33.         Function  GetReminders: DReminder;
  34.         Procedure SetReminders    (inValue:        DReminder);
  35.         Function  GetIsSelected: Boolean;
  36.         Procedure SetIsSelected    (inValue:        Boolean);
  37.     end;
  38.  
  39. {----------}
  40. Function NewDDocData: DDocData;
  41.  
  42. {----------}
  43. Implementation
  44.  
  45. {----------}
  46. Function NewDDocData: DDocData;
  47. var
  48.     data:        DDocData;
  49. begin
  50.     data := nil;
  51.     New (data);
  52.     if data <> nil then begin
  53.         data.Initialize;
  54.     end;
  55.     NewDDocData := data;
  56. end;
  57.  
  58. {----------}
  59. Procedure DDocData.Initialize;
  60. begin
  61.     inherited Initialize;
  62.  
  63.     mReminderChoice := 0;
  64.     mReminders := nil;
  65. end;
  66.  
  67. {----------}
  68. Function DDocData.GetReminderChoice: SInt16;
  69. begin
  70.     GetReminderChoice := mReminderChoice;
  71.  
  72.  
  73. end;
  74.  
  75. Procedure DDocData.SetReminderChoice (
  76.     inValue:        SInt16);
  77. begin
  78.     mReminderChoice := inValue;
  79.  
  80.  
  81.     SignalDataChanged (idReminderChoice);
  82. end;
  83.  
  84. {----------}
  85. Function DDocData.GetReminders: DReminder;
  86. begin
  87.     GetReminders := mReminders;
  88.  
  89.  
  90. end;
  91.  
  92. Procedure DDocData.SetReminders (
  93.     inValue:        DReminder);
  94. begin
  95.     mReminders := inValue;
  96.  
  97.  
  98.     SignalDataChanged (idReminders);
  99. end;
  100.  
  101. {----------}
  102. Function DDocData.GetIsSelected: Boolean;
  103. begin
  104.     return (mReminderChoice >= 0);
  105.  
  106. end;
  107.  
  108. Procedure DDocData.SetIsSelected (
  109.     inValue:        Boolean);
  110. begin
  111.  
  112.     SignalDataChanged (idIsSelected);
  113. end;
  114.  
  115. end.
  116.